home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / halley.arc / HALSETUP.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1985-10-11  |  1.4 KB  |  34 lines
  1. 1  'HALSETUP.BAS:  Program by John J. Anderson (c) 1985 Creative Computing.
  2. 2  'Use this program to calculate all the custom alterations that will tailor
  3. 3  'the program HALLEYS.BAS to your locale.  You must still know the LATITUDE
  4. 4  'and LONGITUDE of your location in order to use this program.  For the
  5. 5  'LAT/LONG of your city, check HALLEYS.DOC or an atlas.
  6. 6  '
  7. 10  PRINT "Enter your LATITUDE:  ";:INPUT X
  8. 20  PRINT "Enter your LONGITUDE: ";:INPUT Y
  9. 30  PRINT "Enter your TIME ZONE: "
  10. 40  PRINT "(1) Eastern"
  11. 50  PRINT "(2) Central"
  12. 60  PRINT "(3) Mountain"
  13. 70  PRINT "(4) Pacific":INPUT Z
  14. 80  IF Z=1 THEN Z=75
  15. 90  IF Z=2 THEN GOSUB 210
  16. 100  IF Z=3 THEN GOSUB 250
  17. 110  IF Z=4 THEN GOSUB 290
  18. 120  X=X/57.2958
  19. 130  PRINT "Replace the value .656059 with ";SIN(X);" in line 720."
  20. 140  PRINT "Replace the value .754710 with ";COS(X);" in line 720."
  21. 150  Y=(Y-Z)*0.0666666
  22. 160  PRINT "Replace the value -.066666 with the value ";Y;"in lines 770 and 780."
  23. 180  IF Y>0 THEN PRINT "Use a `+' sign to add the value to H in lines 770 and 780.":END
  24. 190  IF Y<0 THEN PRINT "Use a `-' sign to subtract the value from H in lines 770 and 780.":END
  25. 210  Z=90:PRINT "Replace the word EASTERN with CENTRAL in lines 820 and 870."
  26. 230  PRINT "Replace the value -1 with 0 in line 1320."
  27. 240  RETURN
  28. 250  Z=105:PRINT "Replace the word EASTERN with MOUNTAIN in lines 820 and 870."
  29. 270  PRINT "Replace the value -1 with 1 in line 1320."
  30. 280  RETURN
  31. 290  Z=120:PRINT "Replace the word EASTERN with PACIFIC in lines 820 and 870."
  32. 310  PRINT "Replace the value -1 with 2 in line 1320."
  33. 320  RETURN
  34.